<script>on mouseUpglobal leDebutif cd field "SAUVE" is not "MOT-CLE" thenput "MOT-CLE" into cd field "SAUVE"sort by field "MOT-CLE" && field "AUTEUR"go to card "INDEX"end ifpush cardput word 2 of the clickLine into wichLineadd (leDebut-1) to wichLineput wichLine into cd fld "INDIC"go to card wichLineend mouseUpon mouseWithinput trunc (the scroll of me/15) into cd fld "indic"end mouseWithinon mouseEnterfullBalloons "ShowStr#","2000,1"end mouseEnter</script>
<script>on closeCardhide cd fld "Aide"pass closeCardend closeCardon trier nb -- s'il y a un paramètre il s'agit d'une suppressionlock screen -- sans paramètre d'un ajoutset cursor to watchput "Indexation en cours"go cd "Index"if param(1) is not empty then put empty into line nb of cd fld 1put Crunch(card field "MOTS-CLES") into temp--tri des lignes du champ par la XFCN "FullSort"get FullSort(temp,"t=I","d=A","c=word 1")put it into card field "MOTS-CLES"if param(1) is empty then sort by field "MOT-CLE" && field "AUTEUR"hide msg windowgo cd "INDEX"unlock screenend trier</script>
</card>
card_80044.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpRadioUpdate the target,7,8end mouseUpon mouseEnterfullBalloons "ShowStr#","2001,2"end mouseEnter</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>151</left>
<top>108</top>
<right>264</right>
<bottom>128</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Rapport</name>
<script>on mouseUpRadioUpdate the target,7,8end mouseUpon mouseEnterfullBalloons "ShowStr#","2001,3"end mouseEnter</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>274</left>
<top>225</top>
<right>465</right>
<bottom>275</bottom>
</rect>
<style>radiobutton</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Style 3</name>
<script>on mouseUpRadioUpdate the target,9,11end mouseUpon mouseEnterfullBalloons "ShowStr#","2001,1"end mouseEnter</script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>273</left>
<top>145</top>
<right>466</right>
<bottom>211</bottom>
</rect>
<style>radiobutton</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Style 2</name>
<script>on mouseUpRadioUpdate the target,9,11if the hilite of cd btn "RAPPORT" Then set hilite of me to falseend mouseUpon mouseEnterfullBalloons "ShowStr#","2001,1"end mouseEnter</script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>272</left>
<top>112</top>
<right>464</right>
<bottom>131</bottom>
</rect>
<style>radiobutton</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Style 1</name>
<script>on mouseUpRadioUpdate the target,9,11end mouseUpon mouseEnterfullBalloons "ShowStr#","2001,1"end mouseEnter</script>